4 DV=PEEK(186):IFDV<8THENDV=8
5 POKE53281,.:POKE53280,12:PRINT"[147]"CHR$(142)""
6 POKE214,9:PRINT:PRINTTAB(16)"[154]C R A G"
7 POKE214,11:PRINT:PRINT"[159]       A CATEGORICAL GAME OF DICE
8 [151]214,13:[153]:[153]"DEF         ...LOADING PROGRAM..."
10 [141]61000
11 F$[178]"CLEVELAND FONT":SA[178]14336:[141]11000:[151]53272,31
12 F$[178]"SS64.O":SA[178]828:[141]11000
13 F$[178]"DICE.SPR":SA[178]12352:[141]11000
14 F$[178]"MOUSE.SPR":SA[178]12288:[141]11000
105 [137]60000
110 :
10000 [159]15,8,15,"S0:CRAG BOOT":[160]15:[148]"0:CRAG BOOT",8:[128]
10010 :
11000 HI[178][181](SA[173]256):LO[178]SA[171]HI[172]256
11005 [158]57812F$,DV,0
11010 [151]780,0:[151]781,LO:[151]782,HI
11015 [158]65493:[142]
11020 :
60000 [153]"STOPLOAD"[199](34)"CRAG"[199](34)",8"
60025 [153]"RUN"
60030 [151]43,1:[151]44,64:[151]16384,0
60035 [151]631,13:[151]632,13:[151]633,13:[151]198,3
60040 [162]
60999 :
61000 [151]214,15:[153]
61110 [153]"  LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
61120 [153]"  PRINT#                                    "
61130 [153]"                                      "
61140 [153]"                                      "
61150 [153]"      V1 PUBLISHED ON LOADSTAR #85    "
61160 [153]"      SUBSCRIPTIONS 1-800-831-2694    "
61170 [153]"           ALL RIGHTS RESERVED        "
61180 [153]"                                      "
61190 [153]"  POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS"
61200 AU$[178]"C R A G":[151]214,17:[153]
61205 [153][166]20[171][195](AU$)[173]2)"PRINT#"AU$
61210 AU$[178]"BY BARBARA H. SCHULAK":[151]214,18:[153]
61220 [153][166]20[171][195](AU$)[173]2)"PRINT#"AU$"":[142]